home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / I-Info Magazine / (c)i20.d64 / swordmaster ii (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  256 lines
  1. 10 POKE53280,0
  2. 20 POKE53281,0
  3. 30 PRINT"[147]SWORD MASTER[146][154]"
  4. 40 PRINT
  5. 50 PRINT
  6. 55 GOSUB2420
  7. 60 PRINT"YOUR QUEST IS TO DESTROY THE SOLDIERS INVADING THE KINGDOM"
  8. 70 V=53248
  9. 80 DP=150
  10. 90 POKE V+39,1
  11. 100 POKE V+40,15
  12. 120 W=0
  13. 130 REM *SEED RND GEN.
  14. 140 GOSUB 1520
  15. 150 FOR X=DP TO 157
  16. 160 SD=X*64
  17. 170 REM DP=SPRITE DATA BLOCK:SD=ACTUAL MEMORY LOC. OF DP
  18. 180 FOR BN=0 TO 62
  19. 190 READ D%
  20. 200 POKE BN+SD,D%
  21. 210 NEXT BN
  22. 220 NEXT X
  23. 230 REM***SPRITES DONE***
  24. 240 REM *SET UP INITIAL SPRITE X,Y
  25. 250 POKE V,100
  26. 260 POKE V+1,100
  27. 270 REM    S0
  28. 280 POKE V+2,150
  29. 290 POKE V+3,100
  30. 300 REM  S1
  31. 310 REM *NOW ASSIGN INITIAL DATA BLOCKS
  32. 320 POKE 2040,150
  33. 330 POKE 2041,155
  34. 340 REM *NOW GET INTO MAIN PRGM
  35. 350 E=0
  36. 360 RN=1
  37. 370 PRINT"[147]"
  38. 380 POKEV+21,3
  39. 390 PX=110
  40. 400 CX=160
  41. 410 POKEV,PX
  42. 420 POKEV+2,CX
  43. 430 GOSUB2400
  44. 440 ED=ED+1
  45. 450 IFED=2THENED=0:GOTO470
  46. 460 GOTO500
  47. 470 RN=RN+1
  48. 480 GOSUB1520
  49. 490 REM ROUND COUNTER
  50. 500 PRINT"[156]ROUND:[146][154]";RN
  51. 510 EP=INT((RND(0)*3)+1)+154
  52. 520 IFRN=11THENPRINT"FINAL ROUND[146][154]"
  53. 530 PW=INT((RND(0)*4)+1)+150
  54. 540 CP=INT(RND(0)*3)+1
  55. 550 IFCP=1THENCP=155
  56. 560 IFCP=2THENCP=156:CX=CX-2
  57. 570 IFCP=3THENCP=157
  58. 580 IF(CP>3)AND(CP<7)THENCP=157
  59. 590 POKE2041,CP
  60. 600 POKEV+2,CX
  61. 610 IFCX<(PX+10)THENCX=CX+10
  62. 620 IF(CP=156)AND(PEEK(2040)=150)AND(CX<PX+11)THEN940
  63. 630 PI=PEEK(56320)
  64. 640 POKE2040,150
  65. 650 IFPI=127THEN520
  66. 660 IFPI=126THENPP=151
  67. 670 IFPI=125THENPP=152
  68. 680 IFPI=119THENPP=153:PX=PX+2
  69. 690 IFPI=123THENPP=154:PX=PX-10
  70. 700 POKE2040,PP
  71. 710 POKEV,PX
  72. 720 IF(PP=153)AND(CP=EP)AND(PEEK(V+30)=3)THEN820
  73. 730 IF(CP=156)AND(PP=PW)AND(PEEK(V+30)=3)THEN940
  74. 740 IFPX<30THENPX=30
  75. 750 IFCX>190THENCX=190
  76. 760 IFPX>190THENPX=185
  77. 770 IFCX<30THENCX=40
  78. 780 IF(PP=151)AND(CP=155)THENGOSUB1350
  79. 790 IF(PP=152)AND(CP=157)THENGOSUB1350
  80. 800 IF(PP=153)AND(CP=156)THENGOSUB1350
  81. 810 GOTO540
  82. 820 SE=SE+1
  83. 830 PRINT"HITS TO ENEMY:    [157][157][157][157]";SE;"[146]"
  84. 840 IFSE<1+(RN/2)THEN540
  85. 850 IFRN>10THEN1030
  86. 860 SE=0
  87. 870 P3=P3+1
  88. 880 PRINT"ENEMIES KILLED:[146] ";P3
  89. 890 POKEV+21,1
  90. 900 FORZC=1TO1500
  91. 910 NEXTZC
  92. 920 PRINT"[147]"
  93. 930 GOTO380
  94. 940 P2=P2+1
  95. 950 PRINT"HITS:[146] ";P2
  96. 955 IFP2>11THEN1050
  97. 960 FORZC=1TO1500
  98. 970 NEXT
  99. 980 IFP2>RN+20THEN1000
  100. 990 GOTO520
  101. 1000 POKEV+21,2
  102. 1010 PRINT"THE  VICTOR[146][154]"
  103. 1020 END
  104. 1030 POKEV+21,1
  105. 1040 PRINT"THE  VICTOR[146][154]"
  106. 1050 PRINT"              RATING       [146]"
  107. 1060 PRINT
  108. 1070 PRINT"    ";
  109. 1080 IFP2<5THENPRINT"SWORDMASTER[154]":GOTO1260
  110. 1090 IFP2<6THENPRINT"KNIGHT[154]":GOTO1260
  111. 1100 IFP2<7THENPRINT"SWORDSMAN[154]":END
  112. 1110 IFP2<8THENPRINT"WARRIOR[154]":END
  113. 1120 IFP2<9THENPRINT"FIGHTER[154]":END
  114. 1130 IFP2<10THENPRINT"BRIGAND[154]":END
  115. 1140 IFP2<11THENPRINT"PEASANT-IN-TRAINING[154]":END
  116. 1145 IFP2>11THENPRINT"YOUR DEAD LOSER":END
  117. 1150 END
  118. 1160 FORPK=150TO153
  119. 1170 GOSUB1360
  120. 1180 POKE2040,PK
  121. 1190 FORPL=1TO400
  122. 1200 NEXTPL
  123. 1210 NEXTPK
  124. 1220 GOSUB1520
  125. 1230 PRINT"[147]"
  126. 1240 POKEV+21,0
  127. 1250 END
  128. 1260 FORPK=151TO152
  129. 1270 GOSUB1360
  130. 1280 POKE2040,PK
  131. 1290 FORPL=1TO800
  132. 1300 NEXTPL
  133. 1310 NEXTPK
  134. 1320 GOSUB1520
  135. 1330 POKEV+21,0
  136. 1340 END
  137. 1350 IFPEEK(V+30)<>3THENRETURN
  138. 1360 POKE54296,15
  139. 1370 POKE54277,0
  140. 1380 POKE54278,231
  141. 1390 POKE54284,0
  142. 1400 POKE54285,231
  143. 1410 POKE54273,155
  144. 1420 POKE54272,120
  145. 1430 POKE54280,INT(RND(0)*2)+105
  146. 1440 POKE54279,INT(RND(0)*255)+1
  147. 1450 POKE54276,33
  148. 1460 POKE54283,21
  149. 1470 FORZ3=1TO49
  150. 1480 NEXT
  151. 1490 POKE54276,32
  152. 1500 POKE54283,20
  153. 1510 RETURN
  154. 1520 REM***SUBROUTINE TO PLAY MAIN THEME***
  155. 1530 POKE 54296,15
  156. 1540 POKE 54277,21
  157. 1550 POKE 54278,33
  158. 1560 POKE 54284,21
  159. 1570 POKE 54285,199
  160. 1580 POKE 54276,33
  161. 1590 POKE 54283,33
  162. 1600 POKE54284,17
  163. 1610 POKE54272,37
  164. 1620 POKE54280,45
  165. 1630 POKE54279,198
  166. 1640 LV=100
  167. 1650 GOSUB1930
  168. 1660 POKE54273,17
  169. 1670 POKE54272,37
  170. 1680 POKE54280,45
  171. 1690 POKE54279,198
  172. 1700 LV=150
  173. 1710 GOSUB1930
  174. 1720 POKE54273,22
  175. 1730 POKE54272,227
  176. 1740 POKE54280,61
  177. 1750 POKE54279,126
  178. 1760 LV=300
  179. 1770 GOSUB1930
  180. 1780 POKE54273,17
  181. 1790 POKE54272,37
  182. 1800 POKE54280,45
  183. 1810 POKE54279,198
  184. 1820 LV=100
  185. 1830 GOSUB1930
  186. 1840 POKE54273,22
  187. 1850 POKE54272,227
  188. 1860 POKE54280,61
  189. 1870 POKE54279,126
  190. 1880 LV=590
  191. 1890 GOSUB1930
  192. 1900 POKE54276,32
  193. 1910 POKE54283,32
  194. 1920 RETURN
  195. 1930 FORD=1TOLV
  196. 1940 NEXT
  197. 1950 POKE54276,32
  198. 1960 POKE54283,32
  199. 1970 POKE54276,33
  200. 1980 POKE54283,33
  201. 1990 RETURN
  202. 2000 REM *****64 ENGARDE*****
  203. 2010 DATA 12,0,0,30,0,0,63,0,0,30,0,0,12,0,0,255,194,0,255,242
  204. 2020 DATA 0,233,127,254,223,63,255,223,2,0,223
  205. 2030 DATA 2,0,31,0,0,63,128,0,123,192,0,241,224,0,224
  206. 2040 DATA 224,0,113,192,0,113,192,0,59,128,0,31,0,0,127,192,0
  207. 2050 REM *****64 UP BLOCK*****
  208. 2060 DATA 6,0,2,15,0,12,31,128,28,15,0,56,6,0,112,31,196,224
  209. 2070 DATA 127,227,192,239,179,128,207,159,128,207,156,64,207
  210. 2080 DATA 136,0,207,128,0,31,192,0,61,224,0,120,240,0,96,48
  211. 2090 DATA 0,112,112,0,56,224,0,24,192,0,24,192,2,120,240,0
  212. 2100 REM *****64 DOWN BLOCK*****
  213. 2110 DATA 3,0,0,7,128,0,15,192,0,231,128,0,243,0,0,223,128,0
  214. 2120 DATA 207,240,0,207,248,0,207,140,0,15,140,128,15,135
  215. 2130 DATA 0,15,131,0,31,199,128,61,233,192,120,240,224,96,48
  216. 2140 DATA 112,112,112,56,56,224,28,24,192,14,24,192,0,120,240,0
  217. 2150 REM *****64 THRUST*****
  218. 2160 DATA 0,0,0,0,96,0,0,240,0,1,248,0,0,240,0,0,96,0,7,248
  219. 2170 DATA 0,15,248,0,25,234,0,49,234,0,35,239,254,39,239,255
  220. 2180 DATA 7,194,0,15,130,0,13,192,0,28,224,0,56,96,0
  221. 2190 DATA 112,192,0,96,192,0,193,128,0,112,224,0
  222. 2200 REM *****64 DODGE*****
  223. 2210 DATA 0,0,0,0,96,0,0,240,0,1,248,0,0,240,0,0,48,0,3
  224. 2220 DATA 255,208,14,126,56,24,61,16,48,56,224,24,19,192
  225. 2230 DATA 12,6,32,4,12,192,0,25,224,0,50,112,0,100,48,0
  226. 2240 DATA 200,24,1,144,24,1,56,28,2,24,12,0,112,15
  227. 2250 REM *****EVIL ENGARDE*****
  228. 2260 DATA 64,27,96,64,39,144,96,15,192,96,7,128,48,3,0,56
  229. 2270 DATA 31,224,28,63,240,14,167,248,7,103,220,3,231
  230. 2280 DATA 196,4,199,196,0,135,196,0,7,196,0,14,224,0,28,112
  231. 2290 DATA 0,24,48,0,24,48,0,24,48,0,24,48,0,24,48,0,120,240
  232. 2300 REM *****EVIL THRUST*****
  233. 2310 DATA 0,53,128,0,78,64,0,31,0,0,14,0,0,6,0,0,31,0,0,63
  234. 2320 DATA 128,0,63,192,1,46,192,129,47,96,127,175,176,63
  235. 2330 DATA 239,152,1,15,200,1,15,200,0,29,224,0,56,96,0,28
  236. 2340 DATA 112,0,28,56,0,12,28,0,12,6,0,56,28
  237. 2350 REM *****EVIL DOWN BLOCK*****
  238. 2360 DATA 0,27,96,0,39,144,0,15,192,0,7,128,0,3,0,0,63,224,0
  239. 2370 DATA 255,240,4,199,248,3,135,220,3,7,196,7,135,196,14,7,196,28,7,196
  240. 2380 DATA 56,14,224,240,28,112,96,24,48,0,24,48,0,24,48,0,24
  241. 2390 DATA 48,0,24,48,0,120,240
  242. 2400 PRINT"[147]"
  243. 2410 SE=SE-1
  244. 2420 PRINT"[221][158][214][146]"
  245. 2430 PRINT"[221]"
  246. 2440 PRINT"[166][221][166] [166] [166]"
  247. 2450 PRINT"[166][166][166][166][166][166][166]"
  248. 2460 PRINT"[166] [166] [166] [166]"
  249. 2470 PRINT"[166][166][166][166][166][166][166]"
  250. 2480 PRINT"[166][166][169] [223][166][166]"
  251. 2490 PRINT"[166][166]   [166][166]"
  252. 2500 PRINT"[166][166]   [166][166][151][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219]
  253. 2510 [153]"POKE(null)(null)VERIFY   POKE(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
  254. 2520 [153]"(null)VERIFY     POKE(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
  255. 2530 [142]
  256.